home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act2 / 00256.ls < prev    next >
Encoding:
Text File  |  1995-03-28  |  507 b   |  17 lines
  1. on smove sold, stime, xdest, ydest
  2.   set sx to the locH of sprite sold
  3.   set sy to the locV of sprite sold
  4.   set incx to ((1.0 * xdest) - sx) / stime
  5.   set incy to ((1.0 * ydest) - sy) / stime
  6.   startTimer()
  7.   repeat while the timer < stime
  8.     set ptime to the timer
  9.     set the locH of sprite sold to sx + (incx * ptime)
  10.     set the locV of sprite sold to sy + (incy * ptime)
  11.     updateStage()
  12.   end repeat
  13.   set the locH of sprite sold to xdest
  14.   set the locV of sprite sold to ydest
  15.   updateStage()
  16. end
  17.